home *** CD-ROM | disk | FTP | other *** search
/ Aminet 7 / Aminet 7 - August 1995.iso / Aminet / comm / mail / NesQWK1_00.lha / NesQWK / Install NesQWK < prev    next >
Text File  |  1995-06-17  |  2KB  |  74 lines
  1. ; This is the installer script for NesQWK
  2. ; (c) 1995 Nolimits Software Corp.
  3.  
  4. ;------------------------------------------------------------------------------------------------------
  5.  
  6. ( set #path-text
  7.     ( cat "Where would you like NesQWK installed?\n A drawer named 'NesQWK' will be created here." )
  8. )
  9.  
  10. ( set #path-help
  11.     ( cat "In this location a drawer will be created. NesQWK will be installed inside this drawer. The complete installation will require about 250Kb of free disk space.\n\n"
  12.       @askdir-help )
  13. )
  14.  
  15. ;------------------------------------------------------------------------------------------------------
  16.  
  17. ( transcript "NesQWK installation..." )
  18.  
  19. ( set srcdir "" )
  20.  
  21. ( set destdir
  22.     ( askdir
  23.         ( prompt #path-text )
  24.         ( help #path-help )
  25.         ( default @default-dest )
  26.         ( disk )
  27.     )
  28. )
  29.  
  30. ( set destdir ( tackon destdir "NesQWK" ) )
  31.  
  32. ( set @default-dest destdir )
  33.  
  34. ( makedir (infos) destdir )
  35.  
  36. ( copyfiles
  37.     ( prompt "Copying NesQWK to destination." )
  38.     ( help @copyfiles-help )
  39.     ( source srcdir )
  40.     ( dest destdir )
  41.     ( pattern "NesQWK#?" )
  42.     ( infos )
  43.     ( confirm )
  44. )
  45.  
  46. ( copyfiles 
  47.     ( prompt "Copying example QWKMail bundle." )
  48.     ( help @copyfiles-help )
  49.     ( source srcdir )
  50.     ( dest destdir )
  51.     ( choices "Example.QWK" )
  52. )
  53.  
  54. (if 
  55.     (= ( askbool ( prompt "Does your Amiga have MagicWB installed?" ) (help "help") ) 0 )
  56.  
  57. (
  58.     ( delete (tackon destdir "NesQWK.config") )
  59.     ( makedir "FONTS:NesQWK")
  60.     ( copyfiles
  61.         ( source srcdir )
  62.         ( help @copyfiles-help )
  63.         ( dest "FONTS:NesQWK" )
  64.         ( choices "8" )
  65.     )
  66.     ( copyfiles
  67.         ( source srcdir ) 
  68.         ( help @copyfiles-help )
  69.         ( dest "FONTS:" )
  70.         ( choices "font.NesQWK.font" )
  71.     )
  72.     ( rename "FONTS:font.NesQWK.font" "FONTS:NesQWK.font" )
  73. )
  74. )